home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 2510.ZIP / TRSOURCE.EXE / _TR_MKDT.C < prev    next >
C/C++ Source or Header  |  1990-10-22  |  3KB  |  115 lines
  1. /*********
  2. * 
  3. * _tr_mkdt.c
  4. *
  5. * by Tom Rettig
  6. * Modified by Leonard Zerman
  7. *
  8. * Placed in the public domain by Tom Rettig Associates, 10/22/1990.
  9. *
  10. * Syntax: _tr_makedate( <year>, <month>, <day> )
  11. * Return: valid <date string> of <year> plus <month> plus <day>
  12. ********/
  13.  
  14. #include "trlib.h"
  15.  
  16. char *_tr_makedate(year,month,day)
  17. double year, month;
  18. long int day;
  19. {
  20.    static char ret[9] = "        ";
  21.    int newyear, newmonth, newday, lastday,
  22.        mosmonth, mosday, monthyears, daymonths, calcmonth, calcday,
  23.        yrsyear, yrsday;
  24.    /* break into integer and decimal for calculating months and days */
  25.    mosmonth = (int) month;
  26.    /* consider current month when calculating day part of mos */
  27.    mosday = (int) ( (month - (double)mosmonth) * 
  28.                     ((ISYEAR(year)&&ISMONTH((int)month))?
  29.                     (double)_tr_ldm((int)month,(int)year):31) );
  30.  
  31.    /* break into integer and decimal for converting fractional years to days */
  32.    yrsyear = (int) year;
  33.    yrsday = (int) ( (year - (double)yrsyear) * (ISLPYR(yrsyear)?366:365) );
  34.  
  35.    /* add mos and yrs fractions to days */
  36.    day += (long int)(mosday + yrsday);
  37.  
  38.    /* push excess days into months and excess months into years */
  39.    daymonths   = (int)(day / ((ABS(day)>32 && (day%31)==1) ? 31 : 32));
  40.    calcday     = (int)((day-1) % 31) +1;
  41.    mosmonth   += daymonths;
  42.    calcmonth   = ((mosmonth-1) % 12) +1;
  43.    if( mosmonth >= 0 )
  44.    {
  45.       monthyears  = mosmonth /((mosmonth%12)==0 ? 13 : 12); 
  46.       monthyears += (mosmonth%12==0) ? (int)(mosmonth/156) : 0;
  47.    }
  48.    else
  49.    {
  50.       monthyears  = mosmonth /((mosmonth%13)==0 ? 13 : 12); 
  51.       monthyears += (mosmonth%13==0) ? (int)(mosmonth/156) : 0;
  52.    }
  53.    monthyears += ((calcmonth==12)  && (mosmonth%13==0)) ||
  54.                  ((calcmonth==1 )  && (mosmonth < -10)) ? -1 : 0;
  55.    newyear     = yrsyear + monthyears;
  56.  
  57.    /* calculate preliminary new month assuming 31 days */
  58.    if ( calcmonth > 0 )
  59.       newmonth = calcmonth;
  60.    else
  61.    {
  62.       newmonth = 12 + calcmonth;
  63.       newyear--;
  64.    }
  65.  
  66.    /* calculate preliminary new day */
  67.    if ( calcday > 0 )
  68.       newday = calcday;
  69.    else
  70.    {
  71.       newday = 31 + calcday;
  72.       if ( newmonth == 1 )
  73.       {
  74.          newmonth = 12;
  75.          newyear--;
  76.       }
  77.       else
  78.          newmonth--;
  79.    }
  80.  
  81.    /* if year is zero or less, date becomes 01/01/0001 */
  82.    if ( newyear <= 0 )
  83.       newyear = newmonth = newday = 1;
  84.    else
  85.    {
  86.       /* recalculate if newday exceeds valid lastday of month */
  87.       lastday = _tr_ldm(newmonth,newyear);
  88.       if ( newday > lastday )
  89.       {
  90.          if ( calcday > 0 )
  91.          {
  92.             /* will never go over 12 because December has 31 days */
  93.             newmonth++;
  94.             newday -= lastday;
  95.          }
  96.          else
  97.             newday = lastday;
  98.       }
  99.    }
  100.  
  101.    /* build new date string */
  102.    ret[0] = DIGIT( newyear          / 1000 );
  103.    ret[1] = DIGIT((newyear  % 1000) /  100 );
  104.    ret[2] = DIGIT((newyear  %  100) /   10 );
  105.    ret[3] = DIGIT( newyear  %   10         );
  106.    ret[4] = DIGIT( newmonth         /   10 );
  107.    ret[5] = DIGIT( newmonth %   10         );
  108.    ret[6] = DIGIT( newday           /   10 );
  109.    ret[7] = DIGIT( newday   %   10         );
  110.    ret[8] = NULLC;
  111.  
  112.    return( ret );
  113. }
  114.  
  115.